home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / feynman / gluonsetup.tex < prev    next >
Text File  |  1992-07-02  |  10KB  |  288 lines
  1. %                            GLUONSETUP(31).TEX
  2. % CALLED BY FEYNMAN(34).
  3. % USED FOR GENERATING GLUON LINES IN FEYNMAN DIAGRAMS IN LATEX.
  4. \global\newcount\gluonlength
  5. \global\newcount\gluonlengthx
  6. \global\newcount\gluonlengthy
  7. \global\newcount\gluonfrontx  %}(x,y) co-ord of left of gluon
  8. \global\newcount\gluonfronty  %}
  9. \global\newcount\gluonbackx
  10. \global\newcount\gluonbacky
  11. %
  12. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  13. \gdef\setunitbox(#1)[#2][#3](#4)[#5]{
  14. \gdef\upperunitbox{\oval(#1,#1)[#2]}
  15. \gdef\lowerunitbox{\oval(401,401)[#3]}
  16. \gdef\thirdunitbox{\oval(#4,#4)[#5]}
  17. }
  18. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  19. \gdef\selectgluon{  % ORIGINALLY DEFINED IN FEYNMAN(29+).  RECURSIVELY RE-DEFINE
  20. \global\advance\gluoncount by 1  % Counts number of gluons drawn. 
  21. \global\gluonfrontx=\particlefrontx   % READ IN FROM FEYNMAN \selectgluon
  22. \global\gluonfronty=\particlefronty   % READ IN FROM FEYNMAN \selectgluon
  23. \global\particleadjustx=0     \global\particleadjusty=0
  24. % Error messages for overly-long lines.  See FEYNMAN for negative-lengths.
  25. \ifnum\unitboxnumber > 40
  26. \message{   *** WARNING *** Gluon with 
  27. \the\unitboxnumber\space loops requested ***   }
  28. \ifnum\unitboxnumber > 85
  29. \message{   *** Reducing gluon length to 6 loops (max 85) ***   }
  30. \ifnum\unitboxnumber > 1000
  31. \message{   *** Probable Cause:  Gluon selected instead of Fermion ***   }
  32. \fi \global\unitboxnumber=6 \fi \fi  % end of length error
  33. \global\unitboxnumberpo=\unitboxnumber  % DEFINED IN \drawsavedline (FEYNMAN).
  34. \global\advance\unitboxnumberpo by 1 %\unitboxnumber if \unitboxnumber is odd.
  35. % DEFAULTS:
  36. \global\numlineparts = 3
  37. \global\numupperunits=\unitboxnumber
  38. \global\numlowerunits=\unitboxnumber
  39. \global\numthirdunits=\unitboxnumber
  40. % select gluon alignment:
  41. \ifcase\LINEDIRECTION
  42. \Ngluon    %\LINEDIRECTION=0 (NORTH) CASE
  43. \or  \NEgluon  % 1 case
  44. \or  \Egluon   % 2 case...horizontal gluon.
  45. \or  \SEgluon
  46. \or  \Sgluon
  47. \or  \SWgluon 
  48. \or  \Wgluon
  49. \or  \NWgluon
  50. \else\DIRECTERROR \fi
  51. \setparticle  
  52. \global\gluonlengthx=\particlelengthx  \global\gluonlengthy=\particlelengthy
  53. \global\gluonbackx=\particlebackx      \global\gluonbacky=\particlebacky      
  54. } 
  55. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  56. \gdef\Ngluon{   % VERTICAL gluons
  57. \ifcase\LINECONFIGURATION   % \REG GLUON CONFIGURATION
  58. \setcoords(600,540,600)(20,620,1220)[0,1050] 
  59. \setunitbox(1600)[tl][r](1600)[bl]
  60. \particleadjusty=195
  61. \or % \FLIPPED
  62. \setcoords(-990,-930,-990)(12,615,1215)[0,1050]
  63. \setunitbox(1600)[tr][l](1600)[br]
  64. \particleadjusty=195
  65. \or % \CURLYGLUON
  66. \setcoords(440,390,440)(-10,415,840)[0,850]  
  67. \setunitbox(1250)[tl][r](1250)[bl]
  68. \particleadjustx=0
  69. \particleadjusty=-10
  70. \or % \FLIPPED case
  71. \setcoords(-820,-770,-820)(-25,400,825)[0,850]  % Matches change in \S\CURLY
  72. \particleadjusty=-10  % goes with \CURLY \particleadjusty=-10
  73. \setunitbox(1250)[tr][l](1250)[br]
  74. \or \UNIMPERROR  % \LCONFIG=4 is \FLAT case
  75. \or \UNIMPERROR  % \LCONFIG=5 is \FLIPPEDFLAT case
  76. \or % \LCONFIG=6 is \CENTRALGLUON case
  77. \numupperunits=\unitboxnumberpo
  78. \numlowerunits=\unitboxnumber
  79. \numthirdunits=\unitboxnumberpo
  80. \setcoords(-200,-200,-200)(616,1041,616)[0,850]
  81. \setunitbox(1250)[tl][r](1250)[bl]
  82. \particleadjusty=1238
  83. \particleadjusty=1233
  84. \or % \FLIPPEDCENTRAL
  85. \numupperunits=\unitboxnumberpo
  86. \numlowerunits=\unitboxnumber
  87. \numthirdunits=\unitboxnumberpo
  88. \setcoords(-200,-200,-200)(620,1045,620)[0,850]
  89. \setunitbox(1250)[tr][l](1250)[br]
  90. \particleadjusty=1245
  91. \else \UNIMPERROR % etc.
  92. \fi
  93. }
  94. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  95. \gdef\NEgluon{
  96. \numupperunits=\unitboxnumberpo
  97. \numlowerunits=\unitboxnumber
  98. \numthirdunits=\unitboxnumber
  99. \ifcase\LINECONFIGURATION
  100. \setcoords(900,900,900)(0,900,900)[900,900]
  101. \setunitbox(2200)[tl][tr](401)[b]
  102. \particleadjustx=1100     \particleadjusty=1100
  103. \or % \FLIPPED case
  104. \setcoords(-180,720,720)(1090,1091,1091)[900,900]
  105. \setunitbox(2200)[br][tr](401)[l]
  106. \particleadjustx=1110     \particleadjusty=1050                      
  107. \else \UNIMPERROR % etc.
  108. \fi
  109. }
  110. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  111. \gdef\Egluon{     % EASTWARD HORIZONTAL gluons
  112. \ifcase\LINECONFIGURATION
  113. \setcoords(-210,390,990)(-800,-745,-800)[1050,0]  % draws from outer line edge
  114. \setunitbox(1600)[tr][b](1600)[tl]  
  115. \particleadjustx=130  % draws from outer line edge
  116. \or % \FLIPPED
  117. \setcoords(-210,390,990)(800,745,800)[1050,0]  % draws from outer line edge
  118. \setunitbox(1600)[br][t](1600)[bl]
  119. \particleadjustx=130
  120. \or % \CURLYGLUON
  121. \setcoords(-200,225,650)(-625,-575,-625)[850,0]
  122. \setunitbox(1250)[tr][b](1250)[tl]  
  123. \or % \FLIPPED case
  124. \setcoords(-200,225,650)(625,575,625)[850,0]
  125. \setunitbox(1250)[br][t](1250)[bl]
  126. \or % \LCONFIG=4 is \FLAT case
  127. \setcoords(-200,430,1060)(-830,-780,-830)[1260,0]
  128. \setunitbox(1660)[tr][b](1660)[tl]
  129. \or % \LCONFIG=5 is \FLIPPEDFLAT case
  130. \setcoords(-200,430,1060)(830,780,830)[1260,0]
  131. \setunitbox(1660)[br][t](1660)[bl]
  132. \or % \LCONFIG=6 is \CENTRALGLUON case
  133. \numupperunits=\unitboxnumberpo
  134. \numlowerunits=\unitboxnumber
  135. \numthirdunits=\unitboxnumberpo
  136. \setcoords(440,865,440)(0,50,0)[850,0]
  137. \setunitbox(1250)[tr][b](1250)[tl]
  138. \particleadjustx=1260
  139. \or % \FLIPPEDCENTRALGLUON case 
  140. \numupperunits=\unitboxnumberpo
  141. \numlowerunits=\unitboxnumber
  142. \numthirdunits=\unitboxnumberpo
  143. \setcoords(430,855,430)(0,-50,0)[850,0]
  144. \setunitbox(1250)[br][t](1250)[bl]
  145. \particleadjustx=1250
  146. \or % \LCONFIG=8 is \SQUASHEDGLUON case
  147. \setcoords(-160,440,1040)(-600,-550,-600)[1200,0]
  148. \gdef\upperunitbox{\oval(1600,1200)[tr]}
  149. \gdef\thirdunitbox{\oval(1600,1200)[tl]}
  150. \gdef\lowerunitbox{\oval(401,401)[b]}
  151. \else \UNIMPERROR 
  152. \fi
  153. }
  154. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  155. \gdef\SEgluon{  
  156. \numupperunits=\unitboxnumberpo
  157. \numlowerunits=\unitboxnumber
  158. \numthirdunits=\unitboxnumber
  159. \ifcase\LINECONFIGURATION
  160. \setcoords(-200,700,700)(-1100,-1100,-1100)[900,-900]
  161. \setunitbox(2200)[tr][br](401)[l]
  162. \particleadjustx=1100     \particleadjusty=-1100  
  163. \or % \FLIPPED case
  164. \setcoords(890,890,890)(0,-900,-900)[900,-900]
  165. \setunitbox(2200)[bl][br](401)[t]
  166. \particleadjustx=1050     \particleadjusty=-1100 
  167. \else \UNIMPERROR % etc.
  168. \fi
  169. }
  170. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  171. \gdef\Sgluon{   % VERTICAL gluons
  172. \ifcase\LINECONFIGURATION  % \REG STYLE GLUON
  173. \setcoords(-1000,-940,-1000)(0,-595,-1195)[0,-1050]
  174. \setunitbox(1600)[br][l](1600)[tr]
  175. \particleadjusty=-150
  176. \or % \FLIPPED
  177. \setcoords(605,545,605)(-20,-615,-1215)[0,-1050]
  178. \setunitbox(1600)[bl][r](1600)[tl]  
  179. \particleadjusty=-150
  180. \or % \CURLYGLUON
  181. \setcoords(-820,-770,-820)(0,-425,-850)[0,-850]
  182. \setunitbox(1250)[br][l](1250)[tr]  
  183. \or % \FLIPPED case
  184. \setcoords(440,390,440)(0,-425,-850)[0,-850]
  185. \setunitbox(1250)[bl][r](1250)[tl]  
  186. \or \UNIMPERROR % \LCONFIG=4 is \FLATGLUON case
  187. \or \UNIMPERROR
  188. \or % \LCONFIG=6 is \CENTRALGLUON case
  189. \numupperunits=\unitboxnumberpo
  190. \numlowerunits=\unitboxnumber
  191. \numthirdunits=\unitboxnumberpo
  192. \setcoords(-180,-180,-180)(-635,-1060,-635)[0,-850]
  193. \setunitbox(1250)[br][l](1250)[tr]  
  194. \particleadjusty=-1290
  195. \or % \FLIPPEDCENTRAL case
  196. \numupperunits=\unitboxnumberpo
  197. \numlowerunits=\unitboxnumber
  198. \numthirdunits=\unitboxnumberpo
  199. \setcoords(-180,-180,-180)(-635,-1060,-635)[0,-850]
  200. \setunitbox(1250)[bl][r](1250)[tl]
  201. \particleadjusty=-1290
  202. \else \UNIMPERROR % etc.
  203. \fi
  204. }
  205. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  206. \gdef\SWgluon{
  207. \numupperunits=\unitboxnumberpo
  208. \numlowerunits=\unitboxnumber
  209. \numthirdunits=\unitboxnumber
  210. \ifcase\LINECONFIGURATION
  211. \setcoords(-1300,-1300,-1300)(0,-900,-900)[-900,-900]
  212. \setunitbox(2200)[br][bl](401)[t]
  213. \particleadjustx=-1100     \particleadjusty=-1100
  214. \or % \FLIPPED case
  215. \setcoords(-215,-1115,-1115)(-1107,-1107,-1107)[-900,-900]
  216. \setunitbox(2200)[tl][bl](401)[r]
  217. \particleadjustx=-1120     \particleadjusty=-1120
  218. \else \UNIMPERROR % FLIPPED FLATGLUON etc.
  219. \fi
  220. }
  221. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  222. \gdef\Wgluon{   % HORIZONTAL gluons
  223. \ifcase\LINECONFIGURATION
  224. \setcoords(-190,-790,-1390)(800,745,800)[-1050,0]
  225. \setunitbox(1600)[bl][t](1600)[br]  
  226. \particleadjustx=-150  %302
  227. \or % \UNIMPERROR % \FLIPPED
  228. \setcoords(-190,-790,-1390)(-800,-745,-800)[-1050,0]
  229. \setunitbox(1600)[tl][b](1600)[tr]  
  230. \particleadjustx=-150  %302
  231. \or % \CURLYGLUON
  232. \setcoords(-200,-625,-1050)(625,575,625)[-850,0]
  233. \setunitbox(1250)[bl][t](1250)[br]  
  234. \or % \FLIPPED case
  235. \setcoords(-200,-625,-1050)(-625,-575,-625)[-850,0] 
  236. \setunitbox(1250)[tl][b](1250)[tr]  
  237. \or % \LCONFIG=4 is \FLATGLUON case
  238. \setcoords(-230,-860,-1490)(830,780,830)[-1260,0]
  239. \setunitbox(1660)[bl][t](1660)[br]  
  240. \or % \UNIMPERROR
  241. \setcoords(-230,-860,-1490)(-830,-780,-830)[-1260,0]
  242. \setunitbox(1660)[tl][b](1660)[tr]
  243. \or % \LCONFIG=6 is \CENTRALGLUON case
  244. \numupperunits=\unitboxnumberpo
  245. \numlowerunits=\unitboxnumber
  246. \numthirdunits=\unitboxnumberpo
  247. \setcoords(-825,-1250,-825)(0,-50,0)[-850,0]
  248. \setunitbox(1250)[bl][t](1250)[br]  
  249. \particleadjustx=-1250
  250. \or  % \FLIPPEDCENTRALGLUON
  251. \numupperunits=\unitboxnumberpo
  252. \numlowerunits=\unitboxnumber
  253. \numthirdunits=\unitboxnumberpo
  254. \setcoords(-825,-1250,-825)(0,50,0)[-850,0] 
  255. \setunitbox(1250)[tl][b](1250)[tr]  
  256. \particleadjustx=-1250
  257. \else \UNIMPERROR % FLIPPED FLATGLUON etc.
  258. \fi
  259. }
  260. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  261. \gdef\NWgluon{
  262. \numupperunits=\unitboxnumberpo
  263. \numlowerunits=\unitboxnumber
  264. \numthirdunits=\unitboxnumber
  265. \ifcase\LINECONFIGURATION
  266. \setcoords(-200,-1100,-1100)(1100,1100,1100)[-900,900]
  267. \setunitbox(2200)[bl][tl](401)[r]
  268. \particleadjustx=-1110   \particleadjusty=1100
  269. \or  % \FLIPPED
  270. \setcoords(-1309,-1309,-1309)(-15,885,885)[-900,900]
  271. \setunitbox(2200)[tr][tl](401)[b]
  272. \particleadjustx=-1120   \particleadjusty=1065
  273. \else \UNIMPERROR % FLIPPED FLATGLUON etc.
  274. \fi
  275. }
  276. %
  277. %                         *** GLUON LINKS AND CAPS ***
  278. %
  279. % 
  280. \gdef\gluonlink{    %  A `RECURSIVE' DEFINITION.
  281. \input gluonlinks   % \gluonlink is redefined here.
  282. \gluonlink}  %  THIS RE-DEFINES \gluonlink FOR ALL FUTURE USES.
  283. %
  284. % 
  285. \gdef\gluoncap{    %  A `RECURSIVE' DEFINITION.
  286. \input gluonlinks   % \gluoncap is redefined here.
  287. \gluoncap}  %  THIS RE-DEFINES \gluoncap FOR ALL FUTURE USES.
  288.